HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/COM/ProTERM Mac1.2a.sit/ProTERM Mac1.2a/Macros/Resident User 1201

Text File | 1996-07-24 | 11KB | 526 lines

/**************************************
 *                                    *
 *  ProTERM/Mac Resident User Macros  *
 *                                    *
 *   Version 1201   Updated 5/11/96   *
 *                                    *
 **************************************/
//
// NOTE: Text between '/*' and '*/' and following '//' are comments.
//

//
// special "link" code just in case file is executed directly
//
FUNC main()
{
 EXTERN(PREF_GET("mac1"),main(1));
 RETURN;
}


/***********************************************************************/
/*                   Start of Startup Macros                           */
/***********************************************************************/

FUNC startup(STR file)
{

//
// Add startup macro variables after this comment
//

//
// Add startup macro code after this comment
//

 UI_EQUIV("File:Save Asﾉ","M");
 UI_EQUIV("Edit:Format Test","T");
 UI_EQUIV("Edit:Macro Exec","/");
 UI_EQUIV("Edit:Character Count",",");
 UI_EQUIV("Edit:Convert:Paragraph Format","U")
 UI_EQUIV("Edit:Convert:Smart Quotes","J")
 UI_EQUIV("Edit:Convert:Reply Format","Y")

// leave this code unchanged
 RESIDENT("",0,#KeyAccess+#LibAccess);
 RETURN;
}


/***********************************************************************/
/*                   Start of Keyboard Macros                          */
/***********************************************************************/


//
// COMMAND+OPTION+K: Resize editor window to 80x24
//
FUNC ked_0928()
{
 WIN_SIZE(WIN_ACTIVE(0),80*6+19,24*12+8);
 RETURN;
}


//
// COMMAND+OPTION+F: Insert First Name into Editor
//
FUNC key_0903()
{
 UI_TYPE(first_name(GESTALT(name)));
 RETURN;
}


//
// COMMAND+OPTION+N: Insert Name (first+last) into Editor
//
FUNC key_092D()
{
 UI_TYPE(GESTALT(name));
 RETURN;
}

//
// COMMAND+OPTION+O: Insert Name @ Org into Editor
//
FUNC key_091F()
{
 UI_TYPE(GESTALT(name)+" @ "+GESTALT(org));
 RETURN;
}

//
// COMMAND+OPTION+Y: Auto Reply Format
//
FUNC ked_0910()
{
 UI_MENU("Edit:Convert:Paragraph Format");
 UI_MENU("Edit:Convert:Reply Format");
 UI_CLICK("Format");
 RETURN;
}

//
// F1 macro: Mark Start of Reply Formatting (for Send ASCII)
//
FUNC ked_007A()
{
 UI_TYPE('ｼre(ﾒ > ﾓ)ｼ^m');
 RETURN;
}


//
// F2 macro: Mark End of Reply Formatting (for Send ASCII)
//
FUNC ked_0078()
{
 UI_TYPE('ｼreｼ^m');
 RETURN;
}


//
// F3 macro: Mark Start of Hanging-Indent Text (for Send ASCII)
//
FUNC ked_0063()
{
 UI_TYPE('ｼlm3ｼｼpm-2ｼ^m');
 RETURN;
}


//
// F4 macro: Mark End of Hanging-Indent Text (for Send ASCII)
//
FUNC ked_0076()
{
 UI_TYPE('ｼlmｼｼpmｼ^m');
 RETURN;
}


//
// F5 macro: Delphi Mail Template (for Send ASCII)
//
func ked_0060()
{
UI_TYPE('^
ｼhideｼ
**************************************************************************
The following is a mail template that can be used to automate the sending of mail on Delphi. To use the template, replace the text in all uppercase with the appropriate information. After connecting to Delphi, choose the Send ASCII command in the Edit menu to send the mail. While they may look funny, the commands surrounded by ｼ are what tell ProTERM how to control Delphi.
**************************************************************************
ｼshowｼ
ｼasnd($p,ﾒﾓ)ｼ
ｼpr(ﾒmail/s^ Mﾓ)ｼ
ｼwt(ﾒmail>ﾓ)ｼ
ｼpr(ﾒsend^ Mﾓ)ｼ
ｼwt(ﾒto:ﾓ)ｼ
ｼpr(ﾒPUT_MAIL_ADDRESS_HERE^ Mﾓ)ｼ
ｼwt(ﾒsubj:ﾓ)ｼ
ｼpr(ﾒPUT_MAIL_SUBJECT_HERE^ Mﾓ)ｼ
ｼwt(ﾒquit:ﾓ)ｼ

PUT_MAIL_CONTENTS_HERE

ｼpr (ﾒ^ Zﾓ)ｼ
ｼpr(ﾒexit^ Mﾓ)ｼ
');
RETURN;
}


//
// F6 macro: GEnie Mail Template (for Send ASCII)
//
FUNC ked_0061()
{
UI_TYPE('^
ｼhideｼ
**************************************************************************
The following is a mail template that can be used to automate the sending of mail on GEnie. To use the template, replace the text in all uppercase with the appropriate information. After connecting to GEnie, choose the Send ASCII command in the Edit menu to send the mail. While they may look funny, the commands surrounded by ｼ are what tell ProTERM how to control GEnie.
**************************************************************************
ｼshowｼ
ｼasnd($p,ﾒﾓ)ｼ
ｼpr(ﾒm200;9^ Mﾓ)ｼ
ｼwt(ﾒand?ﾓ)ｼ
ｼpr(ﾒtba^ Mﾓ)ｼ
ｼwt(ﾒputﾓ)ｼ
ｼrm80ｼ
PUT_MAIL_ADDRESS_HERE
PUT_MAIL_CC_HERE_OR_LEAVE_BLANK
PUT_MAIL_SUBJECT_HERE

PUT_MAIL_CONTENTS_HERE

*s
ｼpr(ﾒ^ Cﾓ)ｼ
ｼwt(ﾒand?ﾓ)ｼ
ｼpr(ﾒexit^ Mﾓ)ｼ
ｼwt(ﾒ>ﾓ)ｼ
');
RETURN;
}


//
// F7 macro: GEnie Internet Mail Template (for Send ASCII)
//
FUNC ked_0062()
{
UI_TYPE('^
ｼhideｼ
**************************************************************************
The following is a mail template that can be used to automate the sending of internet mail on GEnie. To use the template, replace the text in all uppercase with the appropriate information. After connecting to GEnie, choose the Send ASCII command in the Edit menu to send the mail. While they may look funny, the commands surrounded by ｼ are what tell ProTERM how to control GEnie.
**************************************************************************
ｼshowｼ
ｼasnd($p,ﾒ>ﾓ)ｼ
ｼpr(ﾒm207;3^ Mﾓ)ｼ
ｼwt(ﾒ^ J>ﾓ)ｼ
ｼpr(ﾒPUT_INTERNET_MAIL_ADDRESS_HERE^ Mﾓ)ｼ
ｼwt(ﾒ^ J>ﾓ)ｼ
ｼpr(ﾒ^ Mﾓ)ｼ
ｼwt(ﾒ^ J>ﾓ)ｼ
ｼpr(ﾒ^ Mﾓ)ｼ
ｼwt(ﾒ >ﾓ)ｼ
ｼpr(ﾒn^ Mﾓ)ｼ
ｼwt(ﾒ^ J>ﾓ)ｼ
ｼpr(ﾒPUT_MAIL_SUBJECT_HERE^ Mﾓ)ｼ
ｼwt(ﾒ  1>ﾓ)ｼ

PUT_MAIL_CONTENTS_HERE

ｼpr(ﾒ*s^ Mﾓ)ｼ
ｼwt(ﾒ>ﾓ)ｼ
');
RETURN;
}

//
// F8 macro: CIS Mail Template (for Send ASCII)
//
FUNC ked_0064()
{
UI_TYPE('^
ｼhideｼ
**************************************************************************
The following is a mail template that can be used to automate the sending of mail on CompuServe. To use the template, replace the text in all uppercase with the appropriate information. After connecting to CompuServe, choose the Send ASCII command in the Edit menu to send the mail. While they may look funny, the commands surrounded by ｼ tell ProTERM how to control CompuServe.
**************************************************************************
ｼshowｼ
ｼasnd($p,ﾒ:ﾓ)ｼ
ｼpr(ﾒgo mail^ Mﾓ)ｼ
ｼwt (ﾒchoice!ﾓ)ｼ
comp
to: PUT_MAIL_ADDRESS_HERE
from: PUT_YOUR_NAME_HERE
subj: PUT_MAIL_SUBJECT_HERE

PUT_MAIL_CONTENTS_HERE

ｼpr(ﾒ/exit^ mﾒ)ｼ
send
yes
');
RETURN;
}

//
// F9 macro: CIS Internet Mail Template (for Send ASCII)
//
FUNC ked_0065()
{
UI_TYPE('^
ｼhideｼ
**************************************************************************
The following is a mail template that can be used to automate the sending of internet mail on CompuServe. To use the template, replace the text in all uppercase with the appropriate information. After connecting to CompuServe, choose the Send ASCII command in the Edit menu to send the mail. While they may look funny, the commands surrounded by ｼ are what tell ProTERM how to control CompuServe.
**************************************************************************
ｼshowｼ
ｼasnd($p,ﾒ:ﾓ)ｼ
ｼpr(ﾒgo mail^ Mﾓ)ｼ
ｼwt (ﾒchoice!ﾓ)ｼ
comp
to: name id: >internet:PUT_INTERNET_MAIL_ADDRESS_HERE
from: PUT_YOUR_NAME_HERE
subj: PUT_MAIL_SUBJECT_HERE

PUT_MAIL_CONTENTS_HERE

ｼpr(ﾒ/exit^ mﾒ)ｼ
send
yes
');
RETURN;
}

//
// F10 macro
//
FUNC ked_006D()
{
 UI_TYPE('^
You can edit this macro and make it insert whatever text you want by
changing the file "Resident Macros" located in the Extras folder.
');
 RETURN;
}

//
// F11 macro
//
FUNC ked_0067()
{
 UI_TYPE('^
Simple keyboard macros are a powerful way
to quickly enter frequently used text.
');
 RETURN;
}

//
// F12 macro
//
FUNC ked_006F()
{
 UI_TYPE('The F12 keyboard macro is unused.^m');
 RETURN;
}

//
// F13 macro
//
FUNC ked_0069()
{
 UI_TYPE('The F13 keyboard macro is unused.^m');
 RETURN;
}

//
// F14 macro
//
FUNC ked_006B()
{
 UI_TYPE('The F14 keyboard macro is unused.^m');
 RETURN;
}

//
// F15 macro
//
FUNC ked_0071()
{
 UI_TYPE('The F15 keyboard macro is unused.^m');
 RETURN;
}


/***********************************************************************/
/*                   Start of Library Macros                           */
/***********************************************************************/


//
// Return First Name (from full name)
//
FUNC first_name(STR name)
{
 RETURN(STR_LEFT(name,STR_INDEX(" ",name)));
}

//
// zoom window back to user size
//
FUNC zoom_user()
{
 WIN_ZOOM(WIN_ACTIVE(0),"-"));
 RETURN;
}

//
// zoom window to default size
//
FUNC zoom_default()
{
 WIN_ZOOM(WIN_ACTIVE(0),"+"));
 RETURN;
}

//
// zoom window to minimum size
//
FUNC zoom_min()
{
 WIN_ZOOM(WIN_ACTIVE(0),"<"));
 RETURN;
}

//
// zoom window to maximum size
//
FUNC zoom_max()
{
 WIN_ZOOM(WIN_ACTIVE(0),">"));
 RETURN;
}

//
// zoom window to maximum vertical
//
FUNC zoom_vert()
{
 WIN_ZOOM(WIN_ACTIVE(0),"{"));
 RETURN;
}

//
// zoom window to maximum horizontal
//
FUNC zoom_horiz()
{
 WIN_ZOOM(WIN_ACTIVE(0),"}"));
 RETURN;
}


/***********************************************************************/
/*                   Start of Event Macros                             */
/***********************************************************************/


//
// Sample "connect event" macro
//
FUNC ev_conn(INT ses, STR term, STR name, INT numb, INT time)
{
 PRINTF("ev_conn()^m");
 PRINTF("session = $%x^m",ses);
 PRINTF("term = %s^m",term);
 PRINTF("name = %s^m",name);
 PRINTF("numb = %s^m",numb);
 PRINTF("time = %D %T^m",time,time);
 RETURN;
}


//
// Sample "xfer event" macro
//
FUNC ev_xfer(INT ses, STR mode, STR proto, INT time, INT ticks, INT cur, INT max, STR path, STR name, INT len, INT mod, INT type, INT create, INT bytes, INT spent, INT cps, STR opts, INT errs, STR result)
{
 PRINTF("ev_xfer()^m");
 PRINTF("session = $%x^m",ses);
 PRINTF("mode = %s^m",mode);
 PRINTF("proto = %s^m",proto);
 PRINTF("time = %D %T^m",time,time);
 PRINTF("ticks = %d^m",ticks);
 PRINTF("cur = %d^m",cur);
 PRINTF("max = %d^m",max);
 PRINTF("file path = %s^m",path);
 PRINTF("file name = %s^m",name);
 PRINTF("file len = %d^m",len);
 PRINTF("file modified = %D %T^m",mod,mod);
 PRINTF("file type = '%P'^m",type);
 PRINTF("file creator = '%P'^m",create);
 PRINTF("bytes = %d^m",bytes);
 PRINTF("spent = %S^m",spent);
 PRINTF("cps = %d^m",cps);
 PRINTF("opts = %s^m",opts);
 PRINTF("errs = %d^m",errs);
 PRINTF("result = %s^m",result);
 RETURN;
}


/***********************************************************************/
/*                  Example Macro Window                               */
/***********************************************************************/


//
// COMMAND+OPTION+E: Open macro window
//
FUNC key_090E()
{
 LOCAL INT win;

 IF (WIN_FIND("Dot-Cmds")) {
  RETURN;
 }

 win = WIN_OPEN("Dot-Cmds", 1, -87, 83);
 WIN_BUTTON(win, 1, "reply-start");
 WIN_BUTTON(win, 2, "reply-end  ");
 WIN_BUTTON(win, 3, "hanging    ");
 WIN_BUTTON(win, 4, "flush      ");

 WIN_MACRO(win, 1, ﾒedit_win('ｼre(ﾔ > ﾕ)ｼ^m');ﾓ);
 WIN_MACRO(win, 2, ﾒedit_win('ｼreｼ^m');ﾓ);
 WIN_MACRO(win, 3, ﾒedit_win('ｼlm5ｼｼpm-3ｼ^m');ﾓ);
 WIN_MACRO(win, 4, ﾒedit_win('ｼlmｼｼpmｼ^m');ﾓ);
 RETURN;
}

//
// callback function used by window routines
//
FUNC edit_win(STR cmd)
{
 IF (WIN_TYPE(WIN_ACTIVE(0)) == 'EDIT') {
  UI_TYPE(cmd);
 }
 RETURN;
}

FUNC ref_test(INT xxx, yyy)
{
 str_parse("567","%d",xxx);
 str_parse("123","%d",yyy);
 xxx = yyy + 3;


 RETURN(xxx);
}